#!/usr/bin/gawk -f

BEGIN \
{
	print "ARGC", ARGC;
	print "ARGIND", ARGIND;
	printf("ARGV%s",OFS); pr_array(ARGV);
	print "CONVFMT" CONVFMT
	printf("ENVIRON%s",OFS); pr_array(ENVIRON);
	print "IGNORECASE", IGNORECASE;
	print "NF", NF
	print "NR", NR
	print "OFMT", OFMT
	print "OFS", OFS
	print "ORS", ORS
	printf("PROCINFO%s",OFS); pr_array(PROCINFO);
	print "SUBSEP", SUBSEP
	print "TEXTDOMAIN", TEXTDOMAIN
}

function pr_array(array, var)
{
	for( var in array ) {
		printf("[%s] -> %s\t", var, array[var]);
	}
	print
}
